Template

Primeiro slide

olá

one ¹
two
three

Segundo slide

Olá

```{r}
amostra <- rnorm(1000)
plot(amostra)
```

# Fill in the spot we created for a plot
output$phonePlot <- renderPlot({
  # Render a barplot
})

# Fill in the spot we created for a plot
output$phonePlot <- renderPlot({
  # Render a barplot
  barplot(WorldPhones[,input$region]*1000, 
          main=input$region,
          ylab="Number of Telephones",
          xlab="Year")
})